home *** CD-ROM | disk | FTP | other *** search
/ Software of the Month Cl…ness) 1997 September #242 / Software of the Month Club - Business Shareware (September 1997).iso / dos / biz / pettycsh / pack1.prg / APPS / PCASH / SW / PROC13.PRO < prev    next >
Unknown  |  1996-10-20  |  403 b 
open in: MacOS 8.1     |     Win98     |     DOS

view JSON data     |     view as text


This file was not able to be converted.
This format is not currently supported by dexvert.

ConfidenceProgramDetectionMatch TypeSupport
1% dexvert MSX Protracker Module (music/msxProtrackerModule) ext Unsupported
1% dexvert CODESYS Project (other/codesysProject) ext Unsupported
1% dexvert Show Partner Mastered Show (other/showPartnerMasteredShow) ext Unsupported
100% file data default
100% disktype Blank disk/medium default (weak)


hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 12 00 44 65 63 6c 61 72 | 65 20 56 61 72 69 61 62 |..Declar|e Variab|
|00000010| 6c 65 73 0d 0a 20 20 20 | 78 20 61 73 20 6e 75 6d |les..   |x as num|
|00000020| 62 65 72 0d 0a 65 6e 64 | 0d 0a 66 6f 72 20 6f 70 |ber..end|..for op|
|00000030| 65 6e 69 6e 67 20 62 61 | 6c 61 6e 63 65 73 0d 0a |ening ba|lances..|
|00000040| 20 20 20 78 20 3d 20 78 | 20 2b 20 31 0d 0a 6e 65 |   x = x| + 1..ne|
|00000050| 78 74 0d 0a 69 66 20 78 | 20 3d 20 30 20 74 68 65 |xt..if x| = 0 the|
|00000060| 6e 0d 0a 20 20 20 66 6f | 72 20 6f 70 65 6e 69 6e |n..   fo|r openin|
|00000070| 67 20 62 61 6c 61 6e 63 | 65 73 20 6e 65 77 20 72 |g balanc|es new r|
|00000080| 65 63 6f 72 64 0d 0a 20 | 20 20 20 20 20 6f 70 65 |ecord.. |     ope|
|00000090| 6e 69 6e 67 20 62 61 6c | 61 6e 63 65 73 2e 63 61 |ning bal|ances.ca|
|000000a0| 73 68 20 3d 20 69 6e 70 | 75 74 2e 43 61 73 68 0d |sh = inp|ut.Cash.|
|000000b0| 0a 20 20 20 20 20 20 6f | 70 65 6e 69 6e 67 20 62 |.      o|pening b|
|000000c0| 61 6c 61 6e 63 65 73 2e | 62 61 6e 6b 20 3d 20 69 |alances.|bank = i|
|000000d0| 6e 70 75 74 2e 42 61 6e | 6b 0d 0a 20 20 20 6e 65 |nput.Ban|k..   ne|
|000000e0| 78 74 0d 0a 65 6c 73 65 | 0d 0a 20 20 20 66 6f 72 |xt..else|..   for|
|000000f0| 20 4f 70 65 6e 69 6e 67 | 20 42 61 6c 61 6e 63 65 | Opening| Balance|
|00000100| 73 0d 0a 20 20 20 20 20 | 20 6f 70 65 6e 69 6e 67 |s..     | opening|
|00000110| 20 62 61 6c 61 6e 63 65 | 73 2e 63 61 73 68 20 3d | balance|s.cash =|
|00000120| 20 69 6e 70 75 74 2e 43 | 61 73 68 0d 0a 20 20 20 | input.C|ash..   |
|00000130| 20 20 20 6f 70 65 6e 69 | 6e 67 20 62 61 6c 61 6e |   openi|ng balan|
|00000140| 63 65 73 2e 62 61 6e 6b | 20 3d 20 69 6e 70 75 74 |ces.bank| = input|
|00000150| 2e 42 61 6e 6b 0d 0a 20 | 20 20 20 20 20 75 70 64 |.Bank.. |     upd|
|00000160| 61 74 65 20 72 65 63 6f | 72 64 0d 0a 20 20 20 6e |ate reco|rd..   n|
|00000170| 65 78 74 0d 0a 65 6e 64 | 20 69 66 0d 0a 04 00 4e |ext..end| if....N|
|00000180| 65 77 20 42 61 6c 61 6e | 63 65 73 20 20 20 20 20 |ew Balan|ces     |
|00000190| 20 20 20                |                         |        |        |
+--------+-------------------------+-------------------------+--------+--------+